Declare Sub OutputDebugString Lib "kernel" (ByVal lpString$)
Declare Function VCopyFromTypeTestStk Lib "vbdllctl.vbx" Alias "VCopyParmsFromVB" (fnd As Integer, lng As Long, sng As Single, rl As Double, st As String, fnd2 As Integer, lng2 As Long, sng2 As Single, rl2 As Double, st2 As String, StToDate As Variant, DateToSt As Variant, ByVal ParmPnt&, Retval As Any) As Integer
Declare Function VCopyToTypeTestStk Lib "vbdllctl.vbx" Alias "VCopyParmsToVB" (fnd As Integer, lng As Long, sng As Single, rl As Double, st As String, fnd2 As Integer, lng2 As Long, sng2 As Single, rl2 As Double, st2 As String, StToDate As Variant, DateToSt As Variant, ByVal ParmPnt&) As Integer
Declare Function VCopyFromstrrev Lib "vbdllctl.vbx" Alias "VCopyParmsFromVB" (stparm As String, ByVal ParmPnt&, Retval As Any) As Integer
Declare Function VCopyTostrrev Lib "vbdllctl.vbx" Alias "VCopyParmsToVB" (stparm As String, ByVal ParmPnt&) As Integer
Declare Function VCopyFromInStrRev Lib "vbdllctl.vbx" Alias "VCopyParmsFromVB" (HayStk As String, Needle As String, ByVal ParmPnt&, Retval As Any) As Integer
Declare Function VCopyToInStrRev Lib "vbdllctl.vbx" Alias "VCopyParmsToVB" (HayStk As String, Needle As String, ByVal ParmPnt&) As Integer
Declare Function VCopyFromDecToHex Lib "vbdllctl.vbx" Alias "VCopyParmsFromVB" (b10 As Long, ByVal ParmPnt&, Retval As Any) As Integer
Declare Function VCopyToDecToHex Lib "vbdllctl.vbx" Alias "VCopyParmsToVB" (b10 As Long, ByVal ParmPnt&) As Integer
Declare Function VCopyFromHexToDec Lib "vbdllctl.vbx" Alias "VCopyParmsFromVB" (hx As String, ByVal ParmPnt&, Retval As Any) As Integer
Declare Function VCopyToHexToDec Lib "vbdllctl.vbx" Alias "VCopyParmsToVB" (hx As String, ByVal ParmPnt&) As Integer
Type TASKENTRY
dwSize As Long
htask As Integer
hTaskParent As Integer
hInst As Integer
hModule As Integer
wSS As Integer
wSP As Integer
wStackTop As Integer
wStackMinimum As Integer
wStackBottom As Integer
wcEvents As Integer
hQueue As Integer
szModule As String * 10
wPSPOffset As Integer
hNext As Integer
End Type
Declare Function TaskFindHandle Lib "toolhelp.dll" (tent As TASKENTRY, ByVal htask%) As Integer
Declare Function GetCurrentTask Lib "Kernel" () As Integer
Function DecToHex (b10&) As Variant
dp = Log(b10&) / Log(16)
st% = Int(dp)
For cnt% = st% To 0 Step -1
dg% = Int(b10& / 16 ^ cnt%)
If dg% < 10 Then
rt$ = rt$ + Trim$(Str$(dg%))
Else
rt$ = rt$ + Chr$(dg% + 55)
End If
b10& = b10& - dg% * 16 ^ cnt%
Next cnt%
If rt$ = "" Then rt$ = "0"
DecToHex = rt$
End Function
Function HexToDec (hx$) As Variant
b10& = 0
HexToDec = b10&
For cnt% = 1 To Len(hx$)
ch$ = Mid$(hx$, cnt%, 1)
If ch$ < "0" Then Exit Function
If ch$ > "9" Then
If UCase(ch$) < "A" Or UCase$(ch$) > "F" Then Exit Function
nm% = Asc(UCase(ch$)) - 55
Else
nm% = Val(ch$)
End If
pw% = Len(hx$) - cnt%
b10& = b10& + nm% * (16 ^ pw%)
Next cnt%
HexToDec = b10&
End Function
Function InStrRev (HayStk$, Needle$) As Integer
If HayStk$ = "" Or Needle$ = "" Then Exit Function
LenHayStk% = Len(HayStk$)
LenNeedle% = Len(Needle$)
If LenNeedle% > LenHayStk% Then Exit Function
For cnt% = LenHayStk% - LenNeedle% + 1 To 1 Step -1
fndpos% = InStr(cnt%, HayStk$, Needle$)
If fndpos% > 0 Then Exit For
Next cnt%
InStrRev = fndpos%
End Function
Sub strrev (stparm$)
'strrev - reverse string characters
If stparm$ = "" Then Exit Sub
For cnt% = Len(stparm$) To 1 Step -1
tmp$ = tmp$ + Mid$(stparm$, cnt%, 1)
Next cnt%
stparm$ = tmp$
End Sub
Function TypeTest$ (fnd%, lng&, sng!, rl#, st$, fnd2 As Integer, lng2 As Long, sng2 As Single, rl2 As Double, st2 As String, stlen As String, StToDate, DateToSt)
